Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/tab_test/tabtest.frm

Visual Basic Form | 1995-09-06 | 42.6 KB | 1,328 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   Caption         =   "Tab Demo"
   ClientHeight    =   4050
   ClientLeft      =   975
   ClientTop       =   1950
   ClientWidth     =   7365
   Height          =   4455
   Left            =   915
   LinkTopic       =   "Form1"
   ScaleHeight     =   4050
   ScaleWidth      =   7365
   Top             =   1605
   Width           =   7485
   Begin TABS Tabs3
      Amount          =   4
      BackColor       =   &H00C0C0C0&
      BaseLine        =   -1  'True
      Caption         =   "Just;More;Test;Tabs"
      DistanceApart   =   56
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   180
      Offset          =   0
      SelectedColor   =   &H00C0C0C0&
      SelectedFontBold=   -1  'True
      SelectedFontColor=   &H00000080&
      SelectedFontItalic=   0   'False
      SelectedFontStrikeOut=   0   'False
      SelectedFontUnderline=   0   'False
      SelectedStyle   =   1  'Open
      SelectedTab     =   1
      TabColor        =   &H00FFFFFF&
      TabIndentation  =   8
      TabStyle        =   0  'Bottom
      TabWidth        =   60
      ThreeD          =   -1  'True
      Top             =   3630
      Width           =   7035
   End
   Begin HScrollBar scrBar
      Height          =   255
      Left            =   4920
      TabIndex        =   0
      Top             =   570
      Width           =   2295
   End
   Begin TABS Tabs1
      Amount          =   12
      BackColor       =   &H00C0C0C0&
      BaseLine        =   -1  'True
      Caption         =   "1;2;3;4;5;6;7;8;9;10;11;12"
      DistanceApart   =   45
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   180
      Offset          =   0
      SelectedColor   =   &H00C0C0C0&
      SelectedFontBold=   -1  'True
      SelectedFontColor=   &H00800000&
      SelectedFontItalic=   0   'False
      SelectedFontStrikeOut=   0   'False
      SelectedFontUnderline=   0   'False
      SelectedStyle   =   1  'Open
      SelectedTab     =   1
      TabColor        =   &H0000FF00&
      TabIndentation  =   10
      TabStyle        =   1  'Top
      TabWidth        =   55
      ThreeD          =   -1  'True
      Top             =   570
      Width           =   4755
   End
   Begin TextBox Text2
      Height          =   285
      Left            =   3000
      TabIndex        =   4
      Top             =   120
      Width           =   855
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   1200
      TabIndex        =   3
      Top             =   120
      Width           =   855
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #1"
      ForeColor       =   &H00000000&
      Height          =   2475
      Index           =   0
      Left            =   240
      TabIndex        =   5
      Top             =   1080
      Width           =   3495
      Begin Label Label9
         BackColor       =   &H00C0C0C0&
         Caption         =   "Copyright (C) 1994 Gamesman Inc."
         ForeColor       =   &H00800000&
         Height          =   375
         Left            =   120
         TabIndex        =   24
         Top             =   720
         Width           =   3255
      End
      Begin Label Label8
         BackColor       =   &H00C0C0C0&
         Caption         =   "Fax : [phone] (daytime)"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   120
         TabIndex        =   23
         Top             =   2040
         Width           =   2895
      End
      Begin Label Label7
         BackColor       =   &H00C0C0C0&
         Caption         =   "Phone : [phone]"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   120
         TabIndex        =   22
         Top             =   1800
         Width           =   2895
      End
      Begin Label Label6
         BackColor       =   &H00C0C0C0&
         Caption         =   "Winnipeg Mb.  R3M 0T7"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   1560
         Width           =   2895
      End
      Begin Label Label5
         BackColor       =   &H00C0C0C0&
         Caption         =   "1161 McMillan Ave."
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   1320
         Width           =   2895
      End
      Begin Label Label4
         BackColor       =   &H00C0C0C0&
         Caption         =   "Gamesman Inc."
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   1080
         Width           =   2895
      End
      Begin Label Label3
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "TAB DEMO"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   375
         Left            =   240
         TabIndex        =   18
         Top             =   240
         Width           =   3015
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #2"
      ForeColor       =   &H00000000&
      Height          =   2475
      Index           =   1
      Left            =   480
      TabIndex        =   6
      Top             =   1080
      Visible         =   0   'False
      Width           =   3495
      Begin TextBox Text4
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         ForeColor       =   &H00000000&
         Height          =   1215
         Left            =   120
         MultiLine       =   -1  'True
         TabIndex        =   26
         Text            =   "   You can purchase an uncrippled version of TABS.VBX by sending a cheque for $10.00 ($25.00 to include source code) to the address in Folder #1."
         Top             =   960
         Width           =   3255
      End
      Begin Label Label10
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         Caption         =   "Order Information"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   240
         TabIndex        =   25
         Top             =   480
         Width           =   3015
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #3"
      Height          =   2475
      Index           =   2
      Left            =   600
      TabIndex        =   7
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin Label Label33
         BackColor       =   &H00C0C0C0&
         Caption         =   "Width"
         Height          =   255
         Left            =   2520
         TabIndex        =   49
         Top             =   1620
         Width           =   915
      End
      Begin Label Label32
         BackColor       =   &H00C0C0C0&
         Caption         =   "Visible"
         Height          =   255
         Left            =   2520
         TabIndex        =   48
         Top             =   1380
         Width           =   915
      End
      Begin Label Label31
         BackColor       =   &H00C0C0C0&
         Caption         =   "Top"
         Height          =   255
         Left            =   2520
         TabIndex        =   47
         Top             =   1140
         Width           =   915
      End
      Begin Label Label30
         BackColor       =   &H00C0C0C0&
         Caption         =   "Tag"
         Height          =   255
         Left            =   2520
         TabIndex        =   46
         Top             =   900
         Width           =   915
      End
      Begin Label Label29
         BackColor       =   &H00C0C0C0&
         Caption         =   "Name"
         Height          =   255
         Left            =   2520
         TabIndex        =   45
         Top             =   660
         Width           =   915
      End
      Begin Label Label28
         BackColor       =   &H00C0C0C0&
         Caption         =   "MousePointer"
         Height          =   255
         Left            =   1200
         TabIndex        =   44
         Top             =   2100
         Width           =   1275
      End
      Begin Label Label27
         BackColor       =   &H00C0C0C0&
         Caption         =   "Left"
         Height          =   255
         Left            =   1200
         TabIndex        =   43
         Top             =   1860
         Width           =   1275
      End
      Begin Label Label26
         BackColor       =   &H00C0C0C0&
         Caption         =   "Index"
         Height          =   255
         Left            =   1200
         TabIndex        =   42
         Top             =   1620
         Width           =   1275
      End
      Begin Label Label25
         BackColor       =   &H00C0C0C0&
         Caption         =   "Height"
         Height          =   255
         Left            =   1200
         TabIndex        =   41
         Top             =   1380
         Width           =   1275
      End
      Begin Label Label24
         BackColor       =   &H00C0C0C0&
         Caption         =   "ForeColor"
         Height          =   255
         Left            =   1200
         TabIndex        =   40
         Top             =   1140
         Width           =   1275
      End
      Begin Label Label23
         BackColor       =   &H00C0C0C0&
         Caption         =   "FontUnderline"
         Height          =   255
         Left            =   1200
         TabIndex        =   39
         Top             =   900
         Width           =   1275
      End
      Begin Label Label22
         BackColor       =   &H00C0C0C0&
         Caption         =   "FontStrikethru"
         Height          =   255
         Left            =   1200
         TabIndex        =   38
         Top             =   660
         Width           =   1275
      End
      Begin Label Label21
         BackColor       =   &H00C0C0C0&
         Caption         =   "FontSize"
         Height          =   255
         Left            =   180
         TabIndex        =   37
         Top             =   2100
         Width           =   975
      End
      Begin Label Label20
         BackColor       =   &H00C0C0C0&
         Caption         =   "FontName"
         Height          =   255
         Left            =   180
         TabIndex        =   36
         Top             =   1860
         Width           =   975
      End
      Begin Label Label19
         BackColor       =   &H00C0C0C0&
         Caption         =   "FontItalic"
         Height          =   255
         Left            =   180
         TabIndex        =   35
         Top             =   1620
         Width           =   975
      End
      Begin Label Label18
         BackColor       =   &H00C0C0C0&
         Caption         =   "FontBold"
         Height          =   255
         Left            =   180
         TabIndex        =   34
         Top             =   1380
         Width           =   975
      End
      Begin Label Label17
         BackColor       =   &H00C0C0C0&
         Caption         =   "Enabled"
         Height          =   255
         Left            =   180
         TabIndex        =   33
         Top             =   1140
         Width           =   975
      End
      Begin Label Label16
         BackColor       =   &H00C0C0C0&
         Caption         =   "Caption"
         Height          =   255
         Left            =   180
         TabIndex        =   32
         Top             =   900
         Width           =   975
      End
      Begin Label Label15
         BackColor       =   &H00C0C0C0&
         Caption         =   "BackColor"
         Height          =   255
         Left            =   180
         TabIndex        =   31
         Top             =   660
         Width           =   975
      End
      Begin Label Label14
         BackColor       =   &H00C0C0C0&
         Caption         =   "Standard Properties"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   180
         TabIndex        =   30
         Top             =   300
         Width           =   2235
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #4"
      Height          =   2475
      Index           =   3
      Left            =   840
      TabIndex        =   8
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin Label Label51
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "ThreeD"
         Height          =   255
         Left            =   1800
         TabIndex        =   50
         Top             =   2160
         Width           =   1695
      End
      Begin Label Label50
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "TabWidth"
         Height          =   255
         Left            =   1800
         TabIndex        =   67
         Top             =   1920
         Width           =   1695
      End
      Begin Label Label49
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "TabStyle"
         Height          =   255
         Left            =   1800
         TabIndex        =   66
         Top             =   1680
         Width           =   1695
      End
      Begin Label Label48
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "TabIndentation"
         Height          =   255
         Left            =   1740
         TabIndex        =   65
         Top             =   1440
         Width           =   1755
      End
      Begin Label Label47
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "TabColor"
         Height          =   255
         Left            =   1740
         TabIndex        =   64
         Top             =   1200
         Width           =   1755
      End
      Begin Label Label46
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedTab"
         Height          =   255
         Left            =   1740
         TabIndex        =   63
         Top             =   960
         Width           =   1755
      End
      Begin Label Label45
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedStyle"
         Height          =   255
         Left            =   1740
         TabIndex        =   62
         Top             =   720
         Width           =   1755
      End
      Begin Label Label44
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedFontUnderline"
         Height          =   255
         Left            =   1440
         TabIndex        =   61
         Top             =   480
         Width           =   2055
      End
      Begin Label Label43
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedFontStrikethru"
         Height          =   255
         Left            =   1440
         TabIndex        =   60
         Top             =   240
         Width           =   2055
      End
      Begin Label Label42
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedFontItalic"
         Height          =   255
         Left            =   120
         TabIndex        =   59
         Top             =   2160
         Width           =   1635
      End
      Begin Label Label41
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedFontColor"
         Height          =   255
         Left            =   120
         TabIndex        =   58
         Top             =   1920
         Width           =   1635
      End
      Begin Label Label40
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedFontBold"
         Height          =   255
         Left            =   120
         TabIndex        =   57
         Top             =   1680
         Width           =   1635
      End
      Begin Label Label39
         BackStyle       =   0  'Transparent
         Caption         =   "SelectedColor"
         Height          =   255
         Left            =   120
         TabIndex        =   56
         Top             =   1440
         Width           =   1635
      End
      Begin Label Label38
         BackStyle       =   0  'Transparent
         Caption         =   "OffSet"
         Height          =   255
         Left            =   120
         TabIndex        =   55
         Top             =   1200
         Width           =   1635
      End
      Begin Label Label37
         BackStyle       =   0  'Transparent
         Caption         =   "DistanceApart"
         Height          =   255
         Left            =   120
         TabIndex        =   54
         Top             =   960
         Width           =   1275
      End
      Begin Label Label36
         BackStyle       =   0  'Transparent
         Caption         =   "BaseLine"
         Height          =   255
         Left            =   120
         TabIndex        =   53
         Top             =   720
         Width           =   1335
      End
      Begin Label Label35
         BackStyle       =   0  'Transparent
         Caption         =   "Amount"
         Height          =   255
         Left            =   120
         TabIndex        =   52
         Top             =   480
         Width           =   1455
      End
      Begin Label Label34
         BackStyle       =   0  'Transparent
         Caption         =   "New Properties"
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   120
         TabIndex        =   51
         Top             =   240
         Width           =   1395
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #5"
      Height          =   2475
      Index           =   4
      Left            =   1080
      TabIndex        =   10
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin CommandButton Command5
         Caption         =   "Three D"
         Height          =   315
         Left            =   300
         TabIndex        =   71
         Top             =   1890
         Width           =   1515
      End
      Begin CommandButton Command4
         Caption         =   "Selected Style"
         Height          =   315
         Left            =   300
         TabIndex        =   70
         Top             =   1470
         Width           =   1515
      End
      Begin CommandButton cBaseline
         Caption         =   "Baseline"
         Height          =   315
         Left            =   300
         TabIndex        =   69
         Top             =   1050
         Width           =   1515
      End
      Begin Label Label11
         BackStyle       =   0  'Transparent
         Caption         =   "Some Style Options"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   435
         Left            =   240
         TabIndex        =   73
         Top             =   420
         Width           =   3135
      End
      Begin Label Appear3
         BackColor       =   &H00C0C0C0&
         Caption         =   "True"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   375
         Left            =   2040
         TabIndex        =   27
         Top             =   1890
         Width           =   1275
      End
      Begin Label Appear2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Open"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   345
         Left            =   2040
         TabIndex        =   68
         Top             =   1470
         Width           =   1275
      End
      Begin Label Appear1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Present"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   345
         Left            =   2040
         TabIndex        =   72
         Top             =   1050
         Width           =   1515
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #6"
      Height          =   2475
      Index           =   5
      Left            =   1320
      TabIndex        =   9
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin CheckBox Check4
         BackColor       =   &H00C0C0C0&
         Caption         =   "Underline Font"
         Height          =   315
         Left            =   300
         TabIndex        =   28
         Top             =   1920
         Width           =   2115
      End
      Begin CheckBox Check3
         BackColor       =   &H00C0C0C0&
         Caption         =   "Strikethru Font"
         Height          =   315
         Left            =   300
         TabIndex        =   77
         Top             =   1590
         Width           =   2115
      End
      Begin CheckBox Check2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Italic Font"
         Height          =   315
         Left            =   300
         TabIndex        =   76
         Top             =   1260
         Width           =   2115
      End
      Begin CheckBox Check1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Bold Font"
         Height          =   285
         Left            =   300
         TabIndex        =   75
         Top             =   960
         Value           =   1  'Checked
         Width           =   2115
      End
      Begin Label Label12
         BackStyle       =   0  'Transparent
         Caption         =   "Selected Tab Fonts"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   300
         TabIndex        =   74
         Top             =   450
         Width           =   3135
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #7"
      Height          =   2475
      Index           =   6
      Left            =   1560
      TabIndex        =   11
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin CheckBox Check8
         BackColor       =   &H00C0C0C0&
         Caption         =   "Bold Font"
         Height          =   285
         Left            =   300
         TabIndex        =   81
         Top             =   780
         Value           =   1  'Checked
         Width           =   2115
      End
      Begin CheckBox Check7
         BackColor       =   &H00C0C0C0&
         Caption         =   "Italic Font"
         Height          =   315
         Left            =   300
         TabIndex        =   80
         Top             =   1140
         Width           =   2115
      End
      Begin CheckBox Check6
         BackColor       =   &H00C0C0C0&
         Caption         =   "Strikethru Font"
         Height          =   315
         Left            =   300
         TabIndex        =   79
         Top             =   1500
         Width           =   2115
      End
      Begin CheckBox Check5
         BackColor       =   &H00C0C0C0&
         Caption         =   "Underline Font"
         Height          =   315
         Left            =   300
         TabIndex        =   78
         Top             =   1890
         Width           =   2115
      End
      Begin Label Label52
         BackStyle       =   0  'Transparent
         Caption         =   "Un-Selected Tab Fonts"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   255
         Left            =   300
         TabIndex        =   82
         Top             =   330
         Width           =   3135
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #8"
      Height          =   2475
      Index           =   7
      Left            =   1800
      TabIndex        =   12
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin Frame Frame1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Selected Font Color"
         Height          =   1845
         Left            =   300
         TabIndex        =   83
         Top             =   450
         Width           =   3075
         Begin OptionButton Option4
            BackColor       =   &H00C0C0C0&
            Caption         =   "Night Black"
            Height          =   285
            Left            =   240
            TabIndex        =   29
            Top             =   1350
            Width           =   2535
         End
         Begin OptionButton Option3
            BackColor       =   &H00C0C0C0&
            Caption         =   "Dark Red"
            ForeColor       =   &H00000080&
            Height          =   285
            Left            =   240
            TabIndex        =   86
            Top             =   1020
            Width           =   2535
         End
         Begin OptionButton Option2
            BackColor       =   &H00C0C0C0&
            Caption         =   "Bright Blue"
            ForeColor       =   &H00FF0000&
            Height          =   285
            Left            =   240
            TabIndex        =   85
            Top             =   690
            Width           =   2535
         End
         Begin OptionButton Option1
            BackColor       =   &H00C0C0C0&
            Caption         =   "Dark Green"
            ForeColor       =   &H00008000&
            Height          =   285
            Left            =   240
            TabIndex        =   84
            Top             =   360
            Width           =   2535
         End
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #9"
      Height          =   2475
      Index           =   8
      Left            =   2040
      TabIndex        =   13
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin CommandButton Command1
         Caption         =   "Defaults"
         Height          =   315
         Left            =   1260
         TabIndex        =   97
         Top             =   2040
         Width           =   1215
      End
      Begin Frame Frame3
         BackColor       =   &H00C0C0C0&
         Caption         =   "Distance Apart"
         ForeColor       =   &H00800000&
         Height          =   885
         Left            =   540
         TabIndex        =   92
         Top             =   1080
         Width           =   2535
         Begin OptionButton Option12
            BackColor       =   &H00C0C0C0&
            Caption         =   "80"
            Height          =   255
            Left            =   1500
            TabIndex        =   96
            Top             =   600
            Width           =   795
         End
         Begin OptionButton Option11
            BackColor       =   &H00C0C0C0&
            Caption         =   "70"
            Height          =   285
            Left            =   1500
            TabIndex        =   95
            Top             =   270
            Width           =   795
         End
         Begin OptionButton Option10
            BackColor       =   &H00C0C0C0&
            Caption         =   "60"
            Height          =   255
            Left            =   180
            TabIndex        =   94
            Top             =   600
            Width           =   795
         End
         Begin OptionButton Option9
            BackColor       =   &H00C0C0C0&
            Caption         =   "50"
            Height          =   285
            Left            =   180
            TabIndex        =   93
            Top             =   270
            Width           =   795
         End
      End
      Begin Frame Frame2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Tab Indentation"
         ForeColor       =   &H00800000&
         Height          =   735
         Left            =   540
         TabIndex        =   87
         Top             =   300
         Width           =   2535
         Begin OptionButton Option8
            BackColor       =   &H00C0C0C0&
            Caption         =   "12"
            Height          =   285
            Left            =   1860
            TabIndex        =   91
            Top             =   300
            Width           =   615
         End
         Begin OptionButton Option7
            BackColor       =   &H00C0C0C0&
            Caption         =   "8"
            Height          =   285
            Left            =   1320
            TabIndex        =   90
            Top             =   300
            Value           =   -1  'True
            Width           =   495
         End
         Begin OptionButton Option6
            BackColor       =   &H00C0C0C0&
            Caption         =   "4"
            Height          =   285
            Left            =   780
            TabIndex        =   89
            Top             =   300
            Width           =   495
         End
         Begin OptionButton Option5
            BackColor       =   &H00C0C0C0&
            Caption         =   "0"
            Height          =   285
            Left            =   180
            TabIndex        =   88
            Top             =   300
            Width           =   555
         End
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #10"
      Height          =   2475
      Index           =   9
      Left            =   2280
      TabIndex        =   14
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin TABS Tabs2
         Amount          =   3
         BackColor       =   &H00C0C0C0&
         BaseLine        =   0   'False
         Caption         =   "Even;More;Tabs"
         DistanceApart   =   65
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   1455
         Left            =   240
         Offset          =   0
         SelectedColor   =   &H00FFFFFF&
         SelectedFontBold=   -1  'True
         SelectedFontColor=   &H00000000&
         SelectedFontItalic=   -1  'True
         SelectedFontStrikeOut=   0   'False
         SelectedFontUnderline=   0   'False
         SelectedStyle   =   0  'Closed
         SelectedTab     =   1
         TabColor        =   &H00FFFF00&
         TabIndentation  =   10
         TabStyle        =   0  'Bottom
         TabWidth        =   75
         ThreeD          =   0   'False
         Top             =   780
         Width           =   3135
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #11"
      Height          =   2475
      Index           =   10
      Left            =   2520
      TabIndex        =   15
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin Label Label56
         BackStyle       =   0  'Transparent
         Caption         =   "TabChange *"
         Height          =   285
         Left            =   240
         TabIndex        =   102
         Top             =   1920
         Width           =   1695
      End
      Begin Label Label55
         BackStyle       =   0  'Transparent
         Caption         =   "MouseMove"
         Height          =   285
         Left            =   240
         TabIndex        =   101
         Top             =   1590
         Width           =   1695
      End
      Begin Label Label54
         BackStyle       =   0  'Transparent
         Caption         =   "DragOver"
         Height          =   285
         Left            =   240
         TabIndex        =   100
         Top             =   1260
         Width           =   1695
      End
      Begin Label Label53
         BackStyle       =   0  'Transparent
         Caption         =   "DragDrop"
         Height          =   285
         Left            =   240
         TabIndex        =   99
         Top             =   930
         Width           =   1695
      End
      Begin Label Label13
         BackStyle       =   0  'Transparent
         Caption         =   "Tab Events"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   315
         Left            =   240
         TabIndex        =   98
         Top             =   450
         Width           =   3135
      End
   End
   Begin Frame Frame
      BackColor       =   &H00C0C0C0&
      Caption         =   "Folder #12"
      Height          =   2475
      Index           =   11
      Left            =   2760
      TabIndex        =   16
      Top             =   1080
      Visible         =   0   'False
      Width           =   3615
      Begin TextBox Text3
         Alignment       =   2  'Center
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00800000&
         Height          =   1635
         Left            =   240
         MultiLine       =   -1  'True
         TabIndex        =   17
         Text            =   "This tab control was written for Gamesman Inc. by Craig Gluck. The delivered product does come with .WRI documentation describing all the new events and properties."
         Top             =   600
         Width           =   3195
      End
   End
   Begin Line Line3
      X1              =   120
      X2              =   7200
      Y1              =   1020
      Y2              =   1020
   End
   Begin Line Line2
      X1              =   120
      X2              =   7200
      Y1              =   900
      Y2              =   900
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Caption         =   "Offset :"
      Height          =   255
      Left            =   2160
      TabIndex        =   2
      Top             =   120
      Width           =   735
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Caption         =   "Selected :"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   975
   End
   Begin Line Line1
      X1              =   120
      X2              =   7200
      Y1              =   960
      Y2              =   960
   End
   Begin Shape Shape1
      BackColor       =   &H00C0C0C0&
      BackStyle       =   1  'Opaque
      Height          =   2835
      Left            =   120
      Top             =   810
      Width           =   7095
   End
Dim AllCntr As Integer
Sub cBaseline_Click ()
   If Tabs3.BaseLine Then
      Tabs3.BaseLine = False
      Appear1.Caption = "Not Present"
   Else
      Tabs3.BaseLine = True
      Appear1.Caption = "Present"
   End If
End Sub
Sub Check1_Click ()
   Tabs3.SelectedFontBold = Check1
End Sub
Sub Check2_Click ()
   Tabs3.SelectedFontItalic = Check2
End Sub
Sub Check3_Click ()
   Tabs3.SelectedFontStrikeOut = Check3
End Sub
Sub Check4_Click ()
   Tabs3.SelectedFontUnderline = Check4
End Sub
Sub Check5_Click ()
   Tabs3.FontUnderline = Check5
End Sub
Sub Check6_Click ()
   Tabs3.FontStrikethru = Check6
End Sub
Sub Check7_Click ()
   Tabs3.FontItalic = Check7
End Sub
Sub Check8_Click ()
   Tabs3.FontBold = Check8
End Sub
Sub Command1_Click ()
   Option7 = True
   Tabs3.TabIndentation = 8
   Option9 = False
   Option10 = False
   Option11 = False
   Option12 = False
   Tabs3.DistanceApart = 56
End Sub
Sub Command2_Click ()
   scrBar.Value = 6
End Sub
Sub Command4_Click ()
   If Tabs3.SelectedStyle = 0 Then
      Tabs3.SelectedStyle = 1
      Appear2.Caption = "Open"
   Else
      Tabs3.SelectedStyle = 0
      Appear2.Caption = "Closed"
   End If
End Sub
Sub Command5_Click ()
   If Tabs3.ThreeD Then
      Tabs3.ThreeD = False
      Appear3.Caption = "False"
   Else
      Tabs3.ThreeD = True
      Appear3.Caption = "True"
   End If
End Sub
Sub Form_Load ()
   scrBar.Min = 1
   scrBar.Max = Tabs1.Amount
   scrBar.Value = 1
   scrBar.LargeChange = Tabs1.Amount
   AllCntr = 1
End Sub
Sub Option1_Click ()
   Tabs3.SelectedFontColor = &H8000&
End Sub
Sub Option10_Click ()
   Tabs3.DistanceApart = 60
End Sub
Sub Option11_Click ()
   Tabs3.DistanceApart = 70
End Sub
Sub Option12_Click ()
   Tabs3.DistanceApart = 80
End Sub
Sub Option2_Click ()
   Tabs3.SelectedFontColor = &HFF0000
End Sub
Sub Option3_Click ()
   Tabs3.SelectedFontColor = &H80&
End Sub
Sub Option4_Click ()
   Tabs3.SelectedFontColor = &H0&
End Sub
Sub Option5_Click ()
   Tabs3.TabIndentation = 0
End Sub
Sub Option6_Click ()
   Tabs3.TabIndentation = 4
End Sub
Sub Option7_Click ()
   Tabs3.TabIndentation = 8
End Sub
Sub Option8_Click ()
   Tabs3.TabIndentation = 12
End Sub
Sub Option9_Click ()
   Tabs3.DistanceApart = 50
End Sub
Sub scrBar_Change ()
   Dim Visible As Integer
   Dim Cntr As Integer
   Visible = 7
   If (Tabs1.SelectedTab < scrBar.Value) Then
      Tabs1.SelectedTab = scrBar.Value
      If (Tabs1.SelectedTab - Tabs1.Offset > Visible) Then
         Tabs1.Offset = Tabs1.SelectedTab - Visible
      End If
   Else
      If (Tabs1.SelectedTab > scrBar.Value) Then
         Tabs1.SelectedTab = scrBar.Value
         If (Tabs1.SelectedTab <= Tabs1.Offset) Then
            Tabs1.Offset = Tabs1.SelectedTab - 1
         End If
      End If
   End If
   Text1.Text = Str$(Tabs1.SelectedTab)
   Text2.Text = Str$(Tabs1.Offset)
 ''  For Cntr = 0 To Tabs1.Amount - 1
  ''    If Cntr = (Tabs1.SelectedTab - 1) Then
  ''       Frame(Cntr).Visible = True
 ''     Else
 ''        Frame(Cntr).Visible = False
''      End If
''   Next Cntr
End Sub
Sub Tabs1_ClickIn (X As Single, Y As Single)
   scrBar.Value = Tabs1.SelectedTab
End Sub
Sub Tabs1_ClickTab ()
   scrBar.Value = Tabs1.SelectedTab
End Sub
Sub Tabs1_TabChange ()
   scrBar.Value = Tabs1.SelectedTab
   For Cntr = 0 To Tabs1.Amount - 1
      If Cntr = (Tabs1.SelectedTab - 1) Then
         Frame(Cntr).Visible = True
      Else
         Frame(Cntr).Visible = False
      End If
   Next Cntr
End Sub